10 REM***********************
20 REM*GLUEGUIDE*
30 REM*BYSANDYSMITH*
40 REM*11SEPTEMBER1983*
50 REM***********************
60 VT$="":GOTO110
70 REM*SUBROUTINES*
80 PRINTSPC(20-LEN(A$)/2)A$:RETURN
90 PRINTVT$"     [208][210][197][211][211] [193] [203][197][217][160][212][207][160][199][207][160][212][207][160][212][200][197] [205][197][206][213]";:POKE198,0:WAIT198,1:RETURN
100 REM*TITLEPAGE*
110 PRINT"[147]":A$="[193] [209][213][201][195][203] [199][213][201][196][197] [212][207] [199][204][213][197][211]":GOSUB80:PRINT
112 A$="[194][217] [211][193][206][196][217] [211][205][201][212][200]":GOSUB80
120 PRINT"  [212][200][201][211] [208][210][207][199][210][193][205] [215][201][204][204] [204][201][211][212] [198][207][210] [217][207][213] [212][200][197]":PRINT
122 PRINT"[199][204][213][201][206][199] [208][210][207][208][197][210][212][201][197][211] [193][206][196] [207][212][200][197][210] [198][193][195][212][207][210][211] [207][198]":PRINT
124 PRINT"[212][200][197] 10 [194][193][211][201][195] [203][201][206][196][211] [207][198] [193][196][200][197][211][201][214][197][211].  [210][213][206]"
130 PRINT:PRINT"[212][200][197] ";CHR$(34);"[215][200][201][195][200] [199][204][213][197]?";CHR$(34);
132 PRINT" [208][210][207][199][210][193][205] [212][207] [199][197][212] [193] [204][201][211][212]":PRINT:PRINT"[207][198] [212][200][197] [210][201][199][200][212] [199][204][213][197][211] [212][207] [213][211][197] [212][207] [211][212][201][195][203] [212][215][207]"
134 PRINT:PRINT"[205][193][212][197][210][201][193][204][211] [212][207][199][197][212][200][197][210].  [212][200][197] [201][206][198][207][210][205][193][212][201][207][206]"
140 PRINT:PRINT"[195][207][205][197][211] [198][210][207][205] [212][200][197] [202][213][206][197] 21, 1983 [201][211][211][213][197] [207][198]":PRINT
142 PRINT"[198][193][205][201][204][217] [195][201][210][195][204][197] [205][193][199][193][218][201][206][197]."
150 GOSUB90
160 REM*INITIALIZATION*
170 BN$="[194][210][193][206][196] [206][193][205][197][211]: ":BT$="[194][207][206][196][201][206][199] [212][201][205][197]: "
172 CL$="[210][197][209][213][201][210][197][211] [195][204][193][205][208][201][206][199] [207][210] [200][207][204][196][201][206][199]: ":ST$="[211][212][210][197][206][199][212][200]: "
174 W$="[215][193][212][197][210][208][210][207][207][198]/[210][197][211][201][211][212][193][206][212]: ":F$="[198][204][193][205][205][193][194][204][197]: "
180 T$="[212][207][216][201][195]: ":WG$="[195][204][197][193][206] [215][197][212] [199][204][213][197] [215][201][212][200]: "
182 DG$="[211][207][204][214][197][206][212] [198][207][210] [196][210][201][197][196] [199][204][213][197]: "
190 REM*MENU*
200 PRINT"[147][198][207][210] [201][206][198][207][210][205][193][212][201][207][206] [193][194][207][213][212] [193] [211][208][197][195][201][198][201][195] [199][204][213][197],":PRINT
202 PRINT"[211][197][204][197][195][212] [193] [206][213][205][194][197][210], [212][200][197][206] [208][210][197][211][211] [210][197][212][213][210][206]."
210 PRINT:PRINT:PRINT"     0. [195][193][211][197][201][206] [199][204][213][197]": PRINT"     1. [195][207][206][212][193][195][212] [195][197][205][197][206][212]"
212 PRINT"     2. [195][217][193][206][207][193][195][210][217][204][193][212][197] ([201][206][211][212][193][206][212] [199][204][213][197])"
220 PRINT"     3. [197][208][207][216][217] ([198][193][211][212])":            PRINT"     4. [197][208][207][216][217] ([211][204][207][215])"
222 PRINT"     5. [200][207][213][211][197][200][207][204][196] [195][197][205][197][206][212]"
223 PRINT"     6. [205][193][211][212][201][195]"
230 PRINT"     7. [208][207][204][217][214][201][206][217][204] ([215][200][201][212][197])"
232 PRINT"     8. [210][213][194][194][197][210] [195][197][205][197][206][212]"
234 PRINT"     9. [211][201][204][201][195][207][206][197] ([195][193][213][204][203])
240 Q$[178]"":[153]"LENHOICE ((null)VAL(null)(null)(null)(null) TO QUIT) ";
241 [151]198,0:[146]198,1:[161]Q$
242 [139]Q$[178][199](13)[167]F$[178]"SANDY'S GLUES":[137]60000
243 [139][198](Q$)[179]48[176][198](Q$)[177]57[167]240
250 Q[178][197](Q$):[139]Q[179]0[176]Q[177]9[167]240
260 [145]Q[137]280,360,440,520,600,680,760,840,920,1000
270 [143]*CASEINGLUE*
280 [153]"LOAD":A$[178]"LENATN(null)VALRIGHT$(null) CHR$(null)(null)VAL":[141]80
290 [153]:[153]:[153]BN$;"(null)VAL(null)STR$(null)(null)(null)STR$ LENATN(null)VALRIGHT$(null)"
292 [153][166]13)"(null)ATN(null)RIGHT$(null)(null)ATN(null) LENATN(null)VALRIGHT$(null) LEN(null). (null)(null). 30"
300 [153]:[153]BT$;"24 LEFT$(null)(null)(null)(null)":[153]CL$;"(null)VAL(null)"
310 [153]:[153]ST$;"(null)VAL(null)(null) (null)(null)(null)(null)(null)CHR$"
320 [153]:[153]W$;"(null)(null)":[153]:[153]F$;"(null)(null)":[153]T$;"(null)(null)"
330 [153]:[153]WG$;"(null)ATN(null)VAL(null)":[153]DG$;"(null)(null)(null)VAL"
340 [141]90:[137]200
350 [143]*CONTACTCEMENT*
360 [153]"LOAD":A$[178]"LEN(null)(null)(null)ATNLEN(null) LENVAL(null)VAL(null)(null)":[141]80
370 [153]:[153]:[153]BN$;"(null)VAL(null)STR$(null)(null)(null)STR$ LEN(null)(null)(null)ATNLEN(null) LENVAL(null)VAL(null)(null)"
372 [153][166]13)"CHR$(null)(null)STR$(null)VALATN(null) LEN(null)(null)(null)ATNLEN(null) LENVAL(null)VAL(null)(null)"
380 [153]:[153]BT$;"30 (null)(null) 60 (null)RIGHT$(null)(null)(null)VAL(null)":[153]CL$;"(null)(null)"
390 [153]:[153]ST$;"ASCATNRIGHT$(null)(null)(null) (null)(null)(null)(null)(null)CHR$"
400 [153]:[153]W$;"(null)ATN(null)VAL(null)(null)(null)(null)(null)ASC":[153]:[153]F$;"LENLEFT$VALLEN(null) (null)ATNPEEKVAL(null)":[153]T$;"(null)VAL(null)"
410 [153]:[153]WG$;"(null)ATN(null)VAL(null) (null)(null) (null)ATNRIGHT$(null)(null)"
412 [153][166]5)"(null)LEFT$RIGHT$(null)(null)VAL(null)":[153]DG$;"LEN(null)(null)(null)ATNLEN(null) LENVAL(null)VAL(null)(null)"
414 [153][166]5)"(null)LEFT$RIGHT$(null)(null)VAL(null) (null)(null) (null)ATNRIGHT$(null)(null) (null)LEFT$RIGHT$(null)(null)VAL(null)"
420 [141]90:[137]200
430 [143]*INSTANTGLUE*
440 [153]"LOAD":A$[178]"LEN(null)ATN(null)(null)ATNLEN(null)(null)(null)ATN(null)VAL (RIGHT$(null)(null)(null)ATN(null)(null) CHR$(null)(null)VAL)":[141]80
450 [153]:[153]:[153]BN$;"(null)(null)ATN(null)(null) CHR$(null)(null)VAL"
452 [153][166]13)"STR$(null)(null)(null) (null)(null)(null)VAL(null) CHR$(null)(null)VAL-3"
454 [153][166]13)"(null)VALATN(null)(null) (null)(null)(null)VAL(null) CHR$(null)(null)VAL (null)(null). 3"
460 [153]:[153]BT$;"RIGHT$(null)(null)(null)ATN(null)(null)(null)(null)":[153]CL$;"(null)VAL(null) (3 (null)(null)"
462 [153][166]5)"5 (null)VALLEN(null)(null)STR$(null))"
470 [153]:[153]ST$;"(null)VAL(null)(null) (null)(null)(null)(null)(null)CHR$"
480 [153]:[153]W$;"(null)ATN(null)VAL(null)-(null)VAL(null)RIGHT$(null)(null)ATN(null)(null)":[153]:[153]F$;"(null)VAL(null)":[153]T$;"(null)VAL(null)"
490 [153]:[153]WG$;"ATNLENVAL(null)(null)(null)VAL":[153]DG$;"ATNLENVAL(null)(null)(null)VAL"
500 [141]90:[137]200
510 [143]*FASTEPOXY*
520 [153]"LOAD":A$[178]"VAL(null)(null)(null)(null) (ASCATN(null)(null))": [141]80
530 [153]:[153]:[153]BN$;"(null)RIGHT$(null)ATNLEN(null)VAL ASCATN(null)(null) (null)VAL(null)": [153][166]13)"ASC(null)(null)(null) (null)(null)(null)(null)"
532 [153][166]13)"STR$VAL(null)LEN(null)(null), (null)ATNCHR$RIGHT$LEN ATN(null)VAL(null)RIGHT$LENATN (null)(null)(null)(null)"
540 [153]:[153]BT$;"5 (null)RIGHT$(null)(null)(null)VAL(null)":[153]CL$;"(null)VAL(null)"
550 [153]:[153]ST$;"(null)(null)(null)(null)(null)CHR$"
560 [153]:[153]W$;"(null)ATN(null)VAL(null)-(null)VAL(null)RIGHT$(null)(null)ATN(null)(null)":[153]:[153]F$;"(null)VAL(null)":[153]T$;"(null)VAL(null)"
570 [153]:[153]WG$;"(null)(null)ATN(null)(null) (null)ATN(null)VAL(null)":[153]DG$;"(null)(null)(null)VAL"
580 [141]90:[137]200
590 [143]*SLOWEPOXY*
600 [153]"LOAD":A$[178]"VAL(null)(null)(null)(null) ((null)(null)(null)(null))": [141]80
610 [153]:[153]:[153]BN$;"(null)VAL(null)STR$(null)(null)(null)STR$ VAL(null)(null)(null)(null)"
612 [153][166]13)"STR$VAL(null)LEN(null)(null) LEN(null)VALATN(null) VAL(null)(null)(null)(null)"
614 [153][166]13)"STR$VAL(null)LEN(null)(null) ASCRIGHT$PEEKVAL(null)CHR$(null)ATN(null)(null) VAL(null)VAL(null)LEN(null)ATN(null)"
620 [153]:[153]BT$;"24 LEFT$(null)(null)(null)(null)":[153]CL$;"(null)VAL(null)"
630 [153]:[153]ST$;"(null)VAL(null)(null) (null)(null)(null)(null)(null)CHR$"
640 [153]:[153]W$;"(null)ATN(null)VAL(null)(null)(null)(null)(null)ASC":[153]:[153]F$;"(null)VAL(null)":[153]T$;"(null)VAL(null)"
650 [153]:[153]WG$;"(null)(null)ATN(null)(null) (null)ATN(null)VAL(null)":[153]DG$;"(null)(null)(null)VAL"
660 [141]90:[137]200
670 [143]*HOUSEHOLDCEMENT*
680 [153]"LOAD":A$[178]"LEFT$(null)(null)(null)VALLEFT$(null)(null)STR$ LENVAL(null)VAL(null)(null)":[141]80
690 [153]:[153]:[153]"PEEK(null)ATN(null)STR$ (null)ATN(null)VAL: (null)VAL(null)ATNCHR$VAL'(null) LEFT$(null)(null)(null)VALLEFT$(null)(null)STR$ LENVAL(null)VAL(null)(null)"
700 [153]:[153]BT$;"10 (null)(null) 15 (null)RIGHT$(null)(null)(null)VAL(null)":[153]CL$;"(null)VAL(null)"
710 [153]:[153]ST$;"(null)(null)(null)(null)(null)CHR$"
720 [153]:[153]W$;"(null)(null)":[153]:[153]F$;"(null)VAL(null)":[153]T$;"(null)VAL(null)"
730 [153]:[153]WG$;"ATNLENVAL(null)(null)(null)VAL":[153]DG$;"ATNLENVAL(null)(null)(null)VAL"
740 [141]90:[137]200
750 [143]*MASTIC*
760 [153]"LOAD":A$[178]"(null)ATN(null)(null)RIGHT$LEN":[141]80
770 [153]:[153]:[153]BN$;"(null)(null)(null)LEN(null)VAL (null)ATN(null)-(null)-PEEK(null)(null)STR$"
772 [153][166]13)"ASC(null)ATN(null)(null)(null)RIGHT$(null) LEN(null)(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)"
774 [153][166]19)"ATNSTR$LEFT$VAL(null)RIGHT$(null)VAL"
780 [153]:[153]BT$;"3 LEFT$(null)(null)(null)(null)":[153]CL$;"(null)(null)"
790 [153]:[153]ST$;"ASCATNRIGHT$(null)(null)(null) (null)(null)(null)(null)(null)CHR$"
800 [153]:[153]W$;"LENLEFT$VALLEN(null) (null)ATNPEEKVAL(null)":[153]:[153]F$;"LENLEFT$VALLEN(null) (null)ATNPEEKVAL(null)":[153]T$;"LENLEFT$VALLEN(null) (null)ATNPEEKVAL(null)"
810 [153]:[153]WG$;"LENLEFT$VALLEN(null) (null)ATNPEEKVAL(null)":[153]DG$;"LENLEFT$VALLEN(null) (null)ATNPEEKVAL(null)"
820 [141]90:[137]200
830 [143]*POLYVINYL*
840 [153]"LOAD":A$[178]"(null)(null)(null)(null)(null)RIGHT$(null)(null)(null) ((null)LEFT$RIGHT$(null)VAL)":[141]80
850 [153]:[153]:[153]BN$;"VAL(null)(null)VAL(null)'(null) CHR$(null)(null)VAL-ATN(null)(null)"
852 [153][166]13)"STR$(null)(null)(null)(null)(null) (null)LEFT$RIGHT$(null)VAL CHR$(null)(null)VAL"
854 [153][166]13)"(null)VALATN(null)(null) (null)LEFT$RIGHT$(null)VAL CHR$(null)(null)VAL"
860 [153]:[153]BT$;"30 (null)(null) 60 (null)RIGHT$(null)(null)(null)VAL(null)":[153]CL$;"(null)VAL(null)"
870 [153]:[153]ST$;"(null)VAL(null)(null) (null)(null)(null)(null)(null)CHR$"
880 [153]:[153]W$;"(null)(null)":[153]:[153]F$;"(null)(null)":[153]T$;"(null)(null)"
890 [153]:[153]WG$;"(null)ATN(null)VAL(null)":[153]DG$;"LEFT$(null)(null) (null)ATN(null)VAL(null)"
900 [141]90:[137]200
910 [143]*RUBBERCEMENT*
920 [153]"LOAD":A$[178]"(null)(null)PEEKPEEKVAL(null) LENVAL(null)VAL(null)(null)":[141]80
930 [153]:[153]:[153]BN$;"LENATN(null)(null)VAL(null)'(null) (null)(null)PEEKPEEKVAL(null) LENVAL(null)VAL(null)(null)"
932 [153][166]13)"VAL(null)(null)VAL(null)'(null) (null)(null)PEEKPEEKVAL(null) LENVAL(null)VAL(null)(null)"
934 [153][166]13)"(null)VAL(null)STR$(null)(null)(null)STR$ (null)(null)PEEKPEEKVAL(null) LENVAL(null)VAL(null)(null)"
940 [153]:[153]BT$;"10 (null)(null) 15 (null)RIGHT$(null)(null)(null)VAL(null)":[153]CL$;"(null)(null)"
950 [153]:[153]ST$;"(null)VALATN(null)"
960 [153]:[153]W$;"(null)ATN(null)VAL(null)(null)(null)(null)(null)ASC":[153]:[153]F$;"(null)VAL(null)":[153]T$;"(null)VAL(null)"
970 [153]:[153]WG$;"(null)(null)PEEKPEEKVAL(null) LENVAL(null)VAL(null)(null)"
972 [153][166]21)"(null)LEFT$RIGHT$(null)(null)VAL(null)":[153]DG$;"(null)(null)PEEKPEEKVAL(null) LENVAL(null)VAL(null)(null)"
974 [153][166]24)"(null)LEFT$RIGHT$(null)(null)VAL(null)"
980 [141]90:[137]200
990 [143]*SILICONE*
1000 [153]"LOAD":A$[178]"(null)RIGHT$(null)RIGHT$LEN(null)(null)VAL (LENATN(null)(null)(null))":[141]80
1010 [153]:[153]:[153]BN$;"STR$(null)(null), CHR$VAL(null)VAL(null)ATN(null) VAL(null)VALLEN(null)(null)RIGHT$LEN,"
1012 [153][166]13)"(null)VALATN(null)(null), (null)(null) STR$VAL(null)LEN(null)(null)"
1014 [153][166]13)"(null)RIGHT$(null)RIGHT$LEN(null)(null)VAL ATNSTR$LEFT$VAL(null)RIGHT$(null)VAL"
1020 [153]:[153]BT$;"24 LEFT$(null)(null)(null)(null)":[153]CL$;"(null)VAL(null)"
1030 [153]:[153]ST$;"ASCATNRIGHT$(null)(null)(null) (null)(null)(null)(null)(null)CHR$"
1040 [153]:[153]W$;"(null)VAL(null)(null) (null)ATN(null)VAL(null)(null)(null)(null)(null)ASC":[153]:[153]F$;"(null)VAL(null)":[153]T$;"(null)VAL(null)"
1050 [153]:[153]WG$;"ATN(null)LEN(null)LEFT$(null)(null)":[153]DG$;"(null)(null)(null)VAL"
1060 [141]90:[137]200
60000 [143] LOAD SANDY'S GLUES
60010 F$[178]"GLUE GUIDE"
60020 [153]"LOADLOAD F$,8":[153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]